home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / yam_i_dodatki / yam-list-1.0.lha / subscribe.rexx < prev    next >
OS/2 REXX Batch file  |  1996-12-31  |  1KB  |  38 lines
  1. /*
  2. ** $VER: Subscribe.rexx 1.0 (12.30.96)
  3. **
  4. ** Written by Peter Greci <midgard@nycmetro.com>
  5. **
  6. ** It scans the incoming folder for messages with the subject
  7. ** "Subscribe" and adds the sender to the list.
  8. **/
  9.  
  10. OPTIONS RESULTS
  11. ADDRESS YAM
  12. SetFolder 0                                  /* go to Incoming folder  */
  13. GetFolderInfo MAX; entries = RESULT          /* get number of mail    */
  14. DO i=0 TO entries-1                          /* scan all mail         */
  15.   SetMail i                                  /* set topical mail      */
  16.   GetMailInfo SUBJECT                        /* ask for subject       */
  17.   IF RESULT = 'subscribe' THEN DO            /* criteria accomplished */
  18.     GetMailInfo FROM                         /* ask for sender and    */
  19.     ret=RESULT                               /* save as variable ret  */
  20.     ADDRESS REXX
  21.     open('plist','listserv:list','A') /* open pistol list file */
  22.     writeln('plist',' ')
  23.     writech('plist',ret)                      /* writes new user to file */
  24.     ADDRESS YAM
  25.     mailarchive 3
  26.     mailwrite                                 /* Sends a Welcome to new */
  27.     writemailto ret                           /* subscribers            */
  28.     writesubject 'Welcome'
  29.     writeletter 'listserv:welcome'
  30.     writequeue
  31.     mailsendall
  32.     setfolder 3
  33.     maildelete
  34.     setfolder 0
  35.   END
  36. END
  37. exit
  38.